home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / delay / ImpImpTestDll.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-01-11  |  511 b   |  21 lines
  1. unit ImpImpTestDll;
  2.  
  3. interface
  4.  
  5. procedure Routine1(A, B, C, D: integer); register;
  6. procedure Routine2(A, B, C, D: integer); pascal;
  7. procedure Routine3(A, B, C, D: integer); cdecl;
  8. procedure Routine4(A, B, C, D: integer); stdcall;
  9.  
  10. implementation
  11.  
  12. const
  13.   TestDllName = 'TestDll.Dll';
  14.  
  15. procedure Routine1; external TestDllName;
  16. procedure Routine2; external TestDllName name 'Routine2';
  17. procedure Routine3; external TestDllName index 3;
  18. procedure Routine4; external TestDllName index 4;
  19.  
  20. end.
  21.